macro Mary;
{	Example Macro That Plays MIDI notes }
var
 integer : c,d,e,f,g,a,b,ch;
begin
	c:=60;
	d:=62;
	e:=64;
	f:=65;
	g:=67;
	a:=69;
	b:=71;
	ch:=72;
	Tone(500,c);	
	Tone(500,d);	
	Tone(500,e);	
	Tone(500,f);	
	Tone(500,g);	
	Tone(500,a);	
	Tone(500,b);	
	Tone(500,ch);	
	Delay(30);
	Tone(500,a);	
	Tone(500,g);	
	Tone(500,f);	
	Tone(500,g);	
	Tone(500,a);	
	Tone(500,a);	
	Tone(700,a);	
	Tone(500,g);	
	Tone(500,g);	
	Tone(700,g);	
	Tone(500,a);	
	Tone(500,ch);	
	Tone(700,ch);	
	Tone(500,a);	
	Tone(500,g);	
	Tone(500,f);	
	Tone(500,g);	
	Tone(500,a);	
	Tone(500,a);	
	Tone(500,a);	
	Tone(500,a);	
	Tone(500,g);	
	Tone(500,g);	
	Tone(500,a);	
	Tone(500,g);	
	Tone(1000,f);	
end;